home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / util307.arc / CIPHER.BAS < prev    next >
BASIC Source File  |  1987-03-04  |  640b  |  23 lines
  1. 100 DEFINT A-Z
  2. 110 INPUT "INPUT  FILENAME? ",INFILE$
  3. 120 INPUT "OUTPUT FILENAME? ",OUTFILE$
  4. 130 INPUT "ENTER E=ENCRYPT,D=DECRYPT: ",S$
  5. 140 S=1:IF S$="D" OR S$="d" THEN S=-1
  6. 150 INPUT "ENTER YOUR KEY: ",KY$
  7. 160 OPEN INFILE$ FOR INPUT AS #1
  8. 170 OPEN OUTFILE$ FOR OUTPUT AS #2
  9. 180 KIX=0
  10. 190 IF EOF(1) THEN 280
  11. 200 C=ASC(INPUT$(1,#1))
  12. 210 IF C<&H20 OR C>&H7A THEN 260
  13. 220 KIX=KIX+1:IF KIX>LEN(KY$) THEN KIX=1
  14. 230 C$=MID$(KY$,KIX,1):C=C+S*ASC(C$)
  15. 240 IF C<&H20 THEN C=C+&H5B
  16. 250 IF C>&H7A THEN C=C-&H5B
  17. 260 PRINT #2,CHR$(C);
  18. 270 GOTO 190
  19. 280 CLOSE #1
  20. 290 CLOSE #2
  21. 300 SYSTEM
  22. <&H20 THEN C=C+&H5B
  23. 250 IF C>&H7A THEN C=C-&H5B